/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / OutOfPhase 1.02 / Demo Sounds / RingMod

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 79 6e 31 02 00 00 00 | 00 00 00 ee 56 00 00 64 |Syn1....|....V..d|
|00000010| 00 00 00 00 0e 27 07 80 | 84 1e 00 08 01 01 80 84 |.....'..|........|
|00000020| 1e 00 00 12 7a 00 01 00 | 15 00 00 00 23 73 6f 6e |....z...|....#son|
|00000030| 67 20 70 6f 73 74 70 72 | 6f 63 65 73 73 69 6e 67 |g postpr|ocessing|
|00000040| 0a 00 00 00 00 03 00 00 | 00 01 4f 00 2d 00 0e 02 |........|..O.-...|
|00000050| 32 01 08 00 00 00 53 61 | 77 74 6f 6f 74 68 e9 00 |2.....Sa|wtooth..|
|00000060| 00 00 23 20 67 65 6e 65 | 72 61 74 65 20 61 20 73 |..# gene|rate a s|
|00000070| 61 77 74 6f 6f 74 68 20 | 77 61 76 65 0a 66 75 6e |awtooth |wave.fun|
|00000080| 63 20 73 61 77 74 6f 6f | 74 68 61 72 72 61 79 28 |c sawtoo|tharray(|
|00000090| 64 61 74 61 3a 66 69 78 | 65 64 61 72 72 61 79 2c |data:fix|edarray,|
|000000a0| 20 73 74 61 72 74 3a 69 | 6e 74 2c 20 6c 65 6e 3a | start:i|nt, len:|
|000000b0| 69 6e 74 29 3a 66 69 78 | 65 64 61 72 72 61 79 0a |int):fix|edarray.|
|000000c0| 09 28 0a 09 09 76 61 72 | 20 69 3a 69 6e 74 20 3d |.(...var| i:int =|
|000000d0| 20 30 3b 0a 09 09 77 68 | 69 6c 65 20 69 20 3c 20 | 0;...wh|ile i < |
|000000e0| 6c 65 6e 20 64 6f 0a 09 | 09 09 28 0a 09 09 09 09 |len do..|..(.....|
|000000f0| 73 65 74 20 64 61 74 61 | 5b 69 20 2b 20 73 74 61 |set data|[i + sta|
|00000100| 72 74 5d 20 3a 3d 20 66 | 69 78 65 64 28 2d 31 20 |rt] := f|ixed(-1 |
|00000110| 2b 20 32 20 2a 20 69 20 | 2f 20 28 6c 65 6e 20 2d |+ 2 * i |/ (len -|
|00000120| 20 31 29 29 3b 0a 09 09 | 09 09 73 65 74 20 69 20 | 1));...|..set i |
|00000130| 3a 3d 20 69 20 2b 20 31 | 3b 0a 09 09 09 29 3b 0a |:= i + 1|;....);.|
|00000140| 09 09 64 61 74 61 0a 09 | 29 3b 0a 01 12 00 23 00 |..data..|);....#.|
|00000150| 5f 02 42 01 0b 00 00 00 | 54 6f 6e 65 20 46 69 6c |_.B.....|Tone Fil|
|00000160| 74 65 72 6a 05 00 00 23 | 20 66 69 72 73 74 20 6f |terj...#| first o|
|00000170| 72 64 65 72 20 72 65 63 | 75 72 73 69 76 65 20 66 |rder rec|ursive f|
|00000180| 69 6c 74 65 72 2e 0a 23 | 20 66 72 6f 6d 20 41 70 |ilter..#| from Ap|
|00000190| 70 65 6e 64 69 78 20 28 | 70 61 67 65 20 33 34 39 |pendix (|page 349|
|000001a0| 29 20 6f 66 0a 23 20 44 | 6f 64 67 65 2c 20 43 68 |) of.# D|odge, Ch|
|000001b0| 61 72 6c 65 73 20 61 6e | 64 20 4a 65 72 73 65 2c |arles an|d Jerse,|
|000001c0| 20 54 68 6f 6d 61 73 20 | 41 2e 0a 23 20 43 6f 6d | Thomas |A..# Com|
|000001d0| 70 75 74 65 72 20 4d 75 | 73 69 63 3a 20 20 53 79 |puter Mu|sic:  Sy|
|000001e0| 6e 74 68 65 73 69 73 2c | 20 43 6f 6d 70 6f 73 69 |nthesis,| Composi|
|000001f0| 74 69 6f 6e 2c 20 61 6e | 64 20 50 65 72 66 6f 72 |tion, an|d Perfor|
|00000200| 6d 61 6e 63 65 0a 23 20 | 53 63 68 69 72 6d 65 72 |mance.# |Schirmer|
|00000210| 20 42 6f 6f 6b 73 2c 20 | 4e 65 77 20 59 6f 72 6b | Books, |New York|
|00000220| 2c 20 31 39 38 35 0a 0a | 23 20 66 69 6c 74 65 72 |, 1985..|# filter|
|00000230| 20 73 65 74 20 75 70 20 | 66 75 6e 63 74 69 6f 6e | set up |function|
|00000240| 0a 23 20 20 20 66 63 20 | 3d 20 63 75 74 6f 66 66 |.#   fc |= cutoff|
|00000250| 20 66 72 65 71 75 65 6e | 63 79 20 69 6e 20 48 65 | frequen|cy in He|
|00000260| 72 74 7a 2e 0a 23 20 20 | 20 20 20 66 63 20 3c 20 |rtz..#  |   fc < |
|00000270| 30 20 3d 3e 20 68 69 67 | 68 20 70 61 73 73 20 66 |0 => hig|h pass f|
|00000280| 69 6c 74 65 72 0a 23 20 | 20 20 20 20 66 63 20 3e |ilter.# |    fc >|
|00000290| 20 30 20 3d 3e 20 6c 6f | 77 20 70 61 73 73 20 66 | 0 => lo|w pass f|
|000002a0| 69 6c 74 65 72 0a 23 20 | 20 20 73 72 20 3d 20 73 |ilter.# |  sr = s|
|000002b0| 61 6d 70 6c 69 6e 67 20 | 72 61 74 65 20 69 6e 20 |ampling |rate in |
|000002c0| 48 65 72 74 7a 0a 23 20 | 20 20 72 65 74 75 72 6e |Hertz.# |  return|
|000002d0| 73 20 61 72 72 61 79 20 | 6f 66 20 33 20 65 6c 65 |s array |of 3 ele|
|000002e0| 6d 65 6e 74 73 20 74 6f | 20 63 6f 6e 74 61 69 6e |ments to| contain|
|000002f0| 20 77 6f 72 6b 73 70 61 | 63 65 20 66 6f 72 20 66 | workspa|ce for f|
|00000300| 69 6c 74 65 72 0a 66 75 | 6e 63 20 74 6f 6e 65 73 |ilter.fu|nc tones|
|00000310| 65 74 28 66 63 3a 64 6f | 75 62 6c 65 2c 20 73 72 |et(fc:do|uble, sr|
|00000320| 3a 64 6f 75 62 6c 65 29 | 20 3a 20 64 6f 75 62 6c |:double)| : doubl|
|00000330| 65 61 72 72 61 79 0a 09 | 28 0a 09 09 76 61 72 20 |earray..|(...var |
|00000340| 61 3a 64 6f 75 62 6c 65 | 61 72 72 61 79 28 33 29 |a:double|array(3)|
|00000350| 3b 0a 09 09 76 61 72 20 | 62 3a 64 6f 75 62 6c 65 |;...var |b:double|
|00000360| 20 3d 20 32 20 2d 20 63 | 6f 73 28 32 20 2a 20 70 | = 2 - c|os(2 * p|
|00000370| 69 20 2a 20 66 63 20 2f | 20 73 72 29 3b 0a 09 09 |i * fc /| sr);...|
|00000380| 73 65 74 20 61 5b 31 5d | 20 3a 3d 20 73 71 72 74 |set a[1]| := sqrt|
|00000390| 28 62 20 2a 20 62 20 2d | 20 31 29 20 2d 20 62 3b |(b * b -| 1) - b;|
|000003a0| 0a 09 09 73 65 74 20 61 | 5b 30 5d 20 3a 3d 20 31 |...set a|[0] := 1|
|000003b0| 20 2a 20 61 5b 31 5d 3b | 0a 09 09 69 66 20 66 63 | * a[1];|...if fc|
|000003c0| 20 3c 20 30 20 74 68 65 | 6e 20 73 65 74 20 61 5b | < 0 the|n set a[|
|000003d0| 31 5d 20 3a 3d 20 2d 61 | 5b 31 5d 3b 0a 09 09 61 |1] := -a|[1];...a|
|000003e0| 0a 09 29 3b 0a 0a 23 20 | 66 69 6c 74 65 72 20 73 |..);..# |filter s|
|000003f0| 69 6e 67 6c 65 20 73 74 | 65 70 20 66 75 6e 63 74 |ingle st|ep funct|
|00000400| 69 6f 6e 0a 23 20 20 20 | 78 69 6e 20 3d 20 69 6e |ion.#   |xin = in|
|00000410| 70 75 74 20 73 61 6d 70 | 6c 65 20 76 61 6c 75 65 |put samp|le value|
|00000420| 20 5b 2d 31 2e 2e 31 5d | 0a 23 20 20 20 61 20 3d | [-1..1]|.#   a =|
|00000430| 20 61 72 72 61 79 20 6f | 62 74 61 69 6e 65 64 20 | array o|btained |
|00000440| 66 72 6f 6d 20 74 6f 6e | 65 73 65 74 0a 23 20 20 |from ton|eset.#  |
|00000450| 20 72 65 74 75 72 6e 73 | 20 6e 65 77 20 73 61 6d | returns| new sam|
|00000460| 70 6c 65 20 76 61 6c 75 | 65 0a 66 75 6e 63 20 74 |ple valu|e.func t|
|00000470| 6f 6e 65 28 78 69 6e 3a | 64 6f 75 62 6c 65 2c 20 |one(xin:|double, |
|00000480| 61 3a 64 6f 75 62 6c 65 | 61 72 72 61 79 29 20 3a |a:double|array) :|
|00000490| 20 64 6f 75 62 6c 65 0a | 09 28 0a 09 09 73 65 74 | double.|.(...set|
|000004a0| 20 61 5b 32 5d 20 3a 3d | 20 61 5b 30 5d 20 2a 20 | a[2] :=| a[0] * |
|000004b0| 78 69 6e 20 2d 20 61 5b | 31 5d 20 2a 20 61 5b 32 |xin - a[|1] * a[2|
|000004c0| 5d 3b 0a 09 29 3b 0a 0a | 23 20 61 70 70 6c 79 20 |];..);..|# apply |
|000004d0| 66 69 6c 74 65 72 20 74 | 6f 20 61 20 72 61 6e 67 |filter t|o a rang|
|000004e0| 65 20 6f 66 20 73 61 6d | 70 6c 65 73 2e 20 20 6f |e of sam|ples.  o|
|000004f0| 6e 65 20 70 61 73 73 20 | 69 73 20 6d 61 64 65 20 |ne pass |is made |
|00000500| 74 6f 20 73 74 61 62 69 | 6c 69 7a 65 20 66 69 6c |to stabi|lize fil|
|00000510| 74 65 72 2c 0a 23 20 61 | 6e 64 20 74 68 65 20 73 |ter,.# a|nd the s|
|00000520| 65 63 6f 6e 64 20 70 61 | 73 73 20 69 73 20 74 68 |econd pa|ss is th|
|00000530| 65 6e 20 75 73 65 64 0a | 66 75 6e 63 20 61 70 70 |en used.|func app|
|00000540| 6c 79 74 6f 6e 65 28 64 | 61 74 61 3a 66 69 78 65 |lytone(d|ata:fixe|
|00000550| 64 61 72 72 61 79 2c 20 | 73 74 61 72 74 3a 69 6e |darray, |start:in|
|00000560| 74 2c 20 6c 65 6e 3a 69 | 6e 74 2c 20 61 3a 64 6f |t, len:i|nt, a:do|
|00000570| 75 62 6c 65 61 72 72 61 | 79 2c 20 63 6f 75 6e 74 |ublearra|y, count|
|00000580| 3a 69 6e 74 29 20 3a 20 | 66 69 78 65 64 61 72 72 |:int) : |fixedarr|
|00000590| 61 79 0a 09 28 0a 09 09 | 76 61 72 20 69 3a 69 6e |ay..(...|var i:in|
|000005a0| 74 20 3d 20 30 3b 0a 09 | 09 77 68 69 6c 65 20 63 |t = 0;..|.while c|
|000005b0| 6f 75 6e 74 20 3e 20 30 | 20 64 6f 0a 09 09 09 28 |ount > 0| do....(|
|000005c0| 0a 09 09 09 09 73 65 74 | 20 69 20 3a 3d 20 30 3b |.....set| i := 0;|
|000005d0| 0a 09 09 09 09 77 68 69 | 6c 65 20 69 20 3c 20 6c |.....whi|le i < l|
|000005e0| 65 6e 20 64 6f 0a 09 09 | 09 09 09 28 0a 09 09 09 |en do...|...(....|
|000005f0| 09 09 09 74 6f 6e 65 28 | 64 61 74 61 5b 73 74 61 |...tone(|data[sta|
|00000600| 72 74 20 2b 20 69 5d 2c | 61 29 3b 0a 09 09 09 09 |rt + i],|a);.....|
|00000610| 09 09 73 65 74 20 69 20 | 3a 3d 20 69 20 2b 20 31 |..set i |:= i + 1|
|00000620| 3b 0a 09 09 09 09 09 29 | 3b 0a 09 09 09 09 73 65 |;......)|;.....se|
|00000630| 74 20 63 6f 75 6e 74 20 | 3a 3d 20 63 6f 75 6e 74 |t count |:= count|
|00000640| 20 2d 20 31 3b 0a 09 09 | 09 29 3b 0a 09 09 73 65 | - 1;...|.);...se|
|00000650| 74 20 69 20 3a 3d 20 30 | 3b 0a 09 09 77 68 69 6c |t i := 0|;...whil|
|00000660| 65 20 69 20 3c 20 6c 65 | 6e 20 64 6f 0a 09 09 09 |e i < le|n do....|
|00000670| 28 0a 09 09 09 09 73 65 | 74 20 64 61 74 61 5b 73 |(.....se|t data[s|
|00000680| 74 61 72 74 20 2b 20 69 | 5d 20 3a 3d 20 66 69 78 |tart + i|] := fix|
|00000690| 65 64 20 74 6f 6e 65 28 | 64 61 74 61 5b 73 74 61 |ed tone(|data[sta|
|000006a0| 72 74 20 2b 20 69 5d 2c | 61 29 3b 0a 09 09 09 09 |rt + i],|a);.....|
|000006b0| 73 65 74 20 69 20 3a 3d | 20 69 20 2b 20 31 3b 0a |set i :=| i + 1;.|
|000006c0| 09 09 09 29 3b 0a 09 09 | 64 61 74 61 0a 09 29 3b |...);...|data..);|
|000006d0| 0a 01 13 00 14 00 55 02 | 65 01 09 00 00 00 4e 6f |......U.|e.....No|
|000006e0| 72 6d 61 6c 69 7a 65 8f | 04 00 00 23 20 74 68 69 |rmalize.|...# thi|
|000006f0| 73 20 66 75 6e 63 74 69 | 6f 6e 20 6e 6f 72 6d 61 |s functi|on norma|
|00000700| 6c 69 7a 65 73 20 74 68 | 65 20 7a 6f 6e 65 20 69 |lizes th|e zone i|
|00000710| 6e 20 74 68 65 20 61 72 | 72 61 79 0a 66 75 6e 63 |n the ar|ray.func|
|00000720| 20 6e 6f 72 6d 61 6c 69 | 7a 65 73 65 67 6d 65 6e | normali|zesegmen|
|00000730| 74 28 64 61 74 61 3a 66 | 69 78 65 64 61 72 72 61 |t(data:f|ixedarra|
|00000740| 79 2c 73 74 61 72 74 3a | 69 6e 74 2c 6c 65 6e 3a |y,start:|int,len:|
|00000750| 69 6e 74 29 3a 66 69 78 | 65 64 61 72 72 61 79 0a |int):fix|edarray.|
|00000760| 09 28 0a 09 09 76 61 72 | 20 69 3a 69 6e 74 20 3d |.(...var| i:int =|
|00000770| 20 30 3b 0a 09 09 76 61 | 72 20 6d 61 78 3a 64 6f | 0;...va|r max:do|
|00000780| 75 62 6c 65 20 3d 20 30 | 3b 0a 0a 09 09 77 68 69 |uble = 0|;....whi|
|00000790| 6c 65 20 69 20 3c 20 6c | 65 6e 20 64 6f 0a 09 09 |le i < l|en do...|
|000007a0| 09 28 0a 09 09 09 09 76 | 61 72 20 70 6f 69 6e 74 |.(.....v|ar point|
|000007b0| 3a 64 6f 75 62 6c 65 20 | 3d 20 61 62 73 20 64 61 |:double |= abs da|
|000007c0| 74 61 5b 73 74 61 72 74 | 20 2b 20 69 5d 3b 0a 09 |ta[start| + i];..|
|000007d0| 09 09 09 69 66 20 6d 61 | 78 20 3c 20 70 6f 69 6e |...if ma|x < poin|
|000007e0| 74 20 74 68 65 6e 20 73 | 65 74 20 6d 61 78 20 3a |t then s|et max :|
|000007f0| 3d 20 70 6f 69 6e 74 3b | 0a 09 09 09 09 73 65 74 |= point;|.....set|
|00000800| 20 69 20 3a 3d 20 69 20 | 2b 20 31 3b 0a 09 09 09 | i := i |+ 1;....|
|00000810| 29 3b 0a 0a 09 09 73 65 | 74 20 69 20 3a 3d 20 30 |);....se|t i := 0|
|00000820| 3b 0a 09 09 69 66 20 6d | 61 78 20 3c 20 2e 30 31 |;...if m|ax < .01|
|00000830| 20 74 68 65 6e 20 65 72 | 72 6f 72 20 22 6e 6f 72 | then er|ror "nor|
|00000840| 6d 61 6c 69 7a 65 73 65 | 67 6d 65 6e 74 3a 20 20 |malizese|gment:  |
|00000850| 73 63 61 6c 65 20 69 73 | 20 76 65 72 79 20 6c 61 |scale is| very la|
|00000860| 72 67 65 22 20 72 65 73 | 75 6d 61 62 6c 65 20 74 |rge" res|umable t|
|00000870| 72 75 65 3b 0a 09 09 77 | 68 69 6c 65 20 69 20 3c |rue;...w|hile i <|
|00000880| 20 6c 65 6e 20 64 6f 0a | 09 09 09 28 0a 09 09 09 | len do.|...(....|
|00000890| 09 73 65 74 20 64 61 74 | 61 5b 73 74 61 72 74 20 |.set dat|a[start |
|000008a0| 2b 20 69 5d 20 3a 3d 20 | 66 69 78 65 64 28 64 61 |+ i] := |fixed(da|
|000008b0| 74 61 5b 73 74 61 72 74 | 20 2b 20 69 5d 20 2f 20 |ta[start| + i] / |
|000008c0| 6d 61 78 29 3b 0a 09 09 | 09 09 73 65 74 20 69 20 |max);...|..set i |
|000008d0| 3a 3d 20 69 20 2b 20 31 | 3b 0a 09 09 09 29 3b 0a |:= i + 1|;....);.|
|000008e0| 0a 09 09 64 61 74 61 0a | 09 29 3b 0a 0a 23 20 74 |...data.|.);..# t|
|000008f0| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 73 63 61 |his func|tion sca|
|00000900| 6c 65 73 20 61 6e 64 20 | 73 68 69 66 74 73 20 74 |les and |shifts t|
|00000910| 68 65 20 73 6f 75 6e 64 | 20 74 6f 20 6d 61 78 69 |he sound| to maxi|
|00000920| 6d 69 7a 65 20 74 68 65 | 20 63 68 61 6e 6e 65 6c |mize the| channel|
|00000930| 20 75 73 61 67 65 0a 66 | 75 6e 63 20 6d 61 78 69 | usage.f|unc maxi|
|00000940| 6d 69 7a 65 73 65 67 6d | 65 6e 74 28 64 61 74 61 |mizesegm|ent(data|
|00000950| 3a 66 69 78 65 64 61 72 | 72 61 79 2c 73 74 61 72 |:fixedar|ray,star|
|00000960| 74 3a 69 6e 74 2c 6c 65 | 6e 3a 69 6e 74 29 3a 66 |t:int,le|n:int):f|
|00000970| 69 78 65 64 61 72 72 61 | 79 0a 09 28 0a 09 09 76 |ixedarra|y..(...v|
|00000980| 61 72 20 69 3a 69 6e 74 | 20 3d 20 30 3b 0a 09 09 |ar i:int| = 0;...|
|00000990| 76 61 72 20 6d 61 78 3a | 64 6f 75 62 6c 65 20 3d |var max:|double =|
|000009a0| 20 2d 31 30 30 30 30 30 | 30 3b 0a 09 09 76 61 72 | -100000|0;...var|
|000009b0| 20 6d 69 6e 3a 64 6f 75 | 62 6c 65 20 3d 20 31 30 | min:dou|ble = 10|
|000009c0| 30 30 30 30 30 3b 0a 0a | 09 09 77 68 69 6c 65 20 |00000;..|..while |
|000009d0| 69 20 3c 20 6c 65 6e 20 | 64 6f 0a 09 09 09 28 0a |i < len |do....(.|
|000009e0| 09 09 09 09 76 61 72 20 | 69 74 65 6d 3a 66 69 78 |....var |item:fix|
|000009f0| 65 64 20 3d 20 64 61 74 | 61 5b 73 74 61 72 74 20 |ed = dat|a[start |
|00000a00| 2b 20 69 5d 3b 0a 09 09 | 09 09 69 66 20 6d 61 78 |+ i];...|..if max|
|00000a10| 20 3c 20 69 74 65 6d 20 | 74 68 65 6e 20 73 65 74 | < item |then set|
|00000a20| 20 6d 61 78 20 3a 3d 20 | 69 74 65 6d 3b 0a 09 09 | max := |item;...|
|00000a30| 09 09 69 66 20 6d 69 6e | 20 3e 20 69 74 65 6d 20 |..if min| > item |
|00000a40| 74 68 65 6e 20 73 65 74 | 20 6d 69 6e 20 3a 3d 20 |then set| min := |
|00000a50| 69 74 65 6d 3b 0a 09 09 | 09 09 73 65 74 20 69 20 |item;...|..set i |
|00000a60| 3a 3d 20 69 20 2b 20 31 | 3b 0a 09 09 09 29 3b 0a |:= i + 1|;....);.|
|00000a70| 0a 09 09 73 65 74 20 69 | 20 3a 3d 20 30 3b 0a 09 |...set i| := 0;..|
|00000a80| 09 76 61 72 20 73 70 61 | 6e 3a 64 6f 75 62 6c 65 |.var spa|n:double|
|00000a90| 20 3d 20 28 6d 61 78 20 | 2d 20 6d 69 6e 29 20 2f | = (max |- min) /|
|00000aa0| 20 32 3b 0a 09 09 69 66 | 20 73 70 61 6e 20 3c 20 | 2;...if| span < |
|00000ab0| 2e 30 31 20 74 68 65 6e | 20 65 72 72 6f 72 20 22 |.01 then| error "|
|00000ac0| 6d 61 78 69 6d 69 7a 65 | 73 65 67 6d 65 6e 74 3a |maximize|segment:|
|00000ad0| 20 20 73 70 61 6e 20 69 | 73 20 76 65 72 79 20 73 |  span i|s very s|
|00000ae0| 6d 61 6c 6c 22 20 72 65 | 73 75 6d 61 62 6c 65 20 |mall" re|sumable |
|00000af0| 74 72 75 65 3b 0a 09 09 | 77 68 69 6c 65 20 69 20 |true;...|while i |
|00000b00| 3c 20 6c 65 6e 20 64 6f | 0a 09 09 09 28 0a 09 09 |< len do|....(...|
|00000b10| 09 09 73 65 74 20 64 61 | 74 61 5b 73 74 61 72 74 |..set da|ta[start|
|00000b20| 20 2b 20 69 5d 20 3a 3d | 20 66 69 78 65 64 28 28 | + i] :=| fixed((|
|00000b30| 64 61 74 61 5b 73 74 61 | 72 74 20 2b 20 69 5d 20 |data[sta|rt + i] |
|00000b40| 2d 20 6d 69 6e 29 20 2f | 20 73 70 61 6e 20 2d 20 |- min) /| span - |
|00000b50| 31 29 3b 0a 09 09 09 09 | 73 65 74 20 69 20 3a 3d |1);.....|set i :=|
|00000b60| 20 69 20 2b 20 31 3b 0a | 09 09 09 29 3b 0a 0a 09 | i + 1;.|...);...|
|00000b70| 09 64 61 74 61 0a 09 29 | 3b 0a 04 00 00 00 01 5f |.data..)|;......_|
|00000b80| 00 14 00 1a 02 65 01 08 | 00 00 00 41 64 64 69 74 |.....e..|...Addit|
|00000b90| 69 76 65 4d 04 00 00 23 | 20 73 61 6d 70 6c 69 6e |iveM...#| samplin|
|00000ba0| 67 72 61 74 65 2c 20 6f | 72 69 67 69 6e 2c 20 6c |grate, o|rigin, l|
|00000bb0| 6f 6f 70 73 74 61 72 74 | 31 2c 20 6c 6f 6f 70 73 |oopstart|1, loops|
|00000bc0| 74 61 72 74 32 2c 20 6c | 6f 6f 70 73 74 61 72 74 |tart2, l|oopstart|
|00000bd0| 33 20 3a 20 69 6e 74 65 | 67 65 72 0a 23 20 6c 6f |3 : inte|ger.# lo|
|00000be0| 6f 70 65 6e 64 31 2c 20 | 6c 6f 6f 70 65 6e 64 32 |opend1, |loopend2|
|00000bf0| 2c 20 6c 6f 6f 70 65 6e | 64 33 20 3a 20 69 6e 74 |, loopen|d3 : int|
|00000c00| 65 67 65 72 0a 23 20 6e | 61 74 75 72 61 6c 66 72 |eger.# n|aturalfr|
|00000c10| 65 71 75 65 6e 63 79 20 | 3a 20 64 6f 75 62 6c 65 |equency |: double|
|00000c20| 3b 20 5b 64 61 74 61 20 | 7c 20 6c 65 66 74 64 61 |; [data || leftda|
|00000c30| 74 61 2c 20 72 69 67 68 | 74 64 61 74 61 5d 20 3a |ta, righ|tdata] :|
|00000c40| 20 66 69 78 65 64 61 72 | 72 61 79 0a 23 20 66 72 | fixedar|ray.# fr|
|00000c50| 61 6d 65 73 20 3a 20 69 | 6e 74 65 67 65 72 3b 20 |ames : i|nteger; |
|00000c60| 74 61 62 6c 65 73 20 3a | 20 69 6e 74 65 67 65 72 |tables :| integer|
|00000c70| 3b 20 64 61 74 61 20 3a | 20 66 69 78 65 64 61 72 |; data :| fixedar|
|00000c80| 72 61 79 0a 70 72 6f 74 | 6f 20 73 61 77 74 6f 6f |ray.prot|o sawtoo|
|00000c90| 74 68 61 72 72 61 79 28 | 64 61 74 61 3a 66 69 78 |tharray(|data:fix|
|00000ca0| 65 64 61 72 72 61 79 2c | 20 73 74 61 72 74 3a 69 |edarray,| start:i|
|00000cb0| 6e 74 2c 20 6c 65 6e 3a | 69 6e 74 29 3a 66 69 78 |nt, len:|int):fix|
|00000cc0| 65 64 61 72 72 61 79 3b | 0a 70 72 6f 74 6f 20 74 |edarray;|.proto t|
|00000cd0| 6f 6e 65 73 65 74 28 66 | 63 3a 64 6f 75 62 6c 65 |oneset(f|c:double|
|00000ce0| 2c 20 73 72 3a 64 6f 75 | 62 6c 65 29 20 3a 20 64 |, sr:dou|ble) : d|
|00000cf0| 6f 75 62 6c 65 61 72 72 | 61 79 3b 0a 70 72 6f 74 |oublearr|ay;.prot|
|00000d00| 6f 20 61 70 70 6c 79 74 | 6f 6e 65 28 64 61 74 61 |o applyt|one(data|
|00000d10| 3a 66 69 78 65 64 61 72 | 72 61 79 2c 20 73 74 61 |:fixedar|ray, sta|
|00000d20| 72 74 3a 69 6e 74 2c 20 | 6c 65 6e 3a 69 6e 74 2c |rt:int, |len:int,|
|00000d30| 20 61 3a 64 6f 75 62 6c | 65 61 72 72 61 79 2c 20 | a:doubl|earray, |
|00000d40| 63 6f 75 6e 74 3a 69 6e | 74 29 20 3a 20 66 69 78 |count:in|t) : fix|
|00000d50| 65 64 61 72 72 61 79 3b | 0a 70 72 6f 74 6f 20 6d |edarray;|.proto m|
|00000d60| 61 78 69 6d 69 7a 65 73 | 65 67 6d 65 6e 74 28 64 |aximizes|egment(d|
|00000d70| 61 74 61 3a 66 69 78 65 | 64 61 72 72 61 79 2c 73 |ata:fixe|darray,s|
|00000d80| 74 61 72 74 3a 69 6e 74 | 2c 6c 65 6e 3a 69 6e 74 |tart:int|,len:int|
|00000d90| 29 3a 66 69 78 65 64 61 | 72 72 61 79 3b 0a 76 61 |):fixeda|rray;.va|
|00000da0| 72 20 73 61 77 3a 66 69 | 78 65 64 61 72 72 61 79 |r saw:fi|xedarray|
|00000db0| 28 35 31 32 29 3b 0a 73 | 61 77 74 6f 6f 74 68 61 |(512);.s|awtootha|
|00000dc0| 72 72 61 79 28 73 61 77 | 2c 30 2c 35 31 32 29 3b |rray(saw|,0,512);|
|00000dd0| 0a 76 61 72 20 61 3a 64 | 6f 75 62 6c 65 61 72 72 |.var a:d|oublearr|
|00000de0| 61 79 20 3d 20 74 6f 6e | 65 73 65 74 28 31 30 30 |ay = ton|eset(100|
|00000df0| 2c 32 36 31 2e 36 20 2a | 20 35 31 32 29 3b 0a 61 |,261.6 *| 512);.a|
|00000e00| 70 70 6c 79 74 6f 6e 65 | 28 73 61 77 2c 30 2c 35 |pplytone|(saw,0,5|
|00000e10| 31 32 2c 61 2c 31 29 3b | 0a 6d 61 78 69 6d 69 7a |12,a,1);|.maximiz|
|00000e20| 65 73 65 67 6d 65 6e 74 | 28 73 61 77 2c 30 2c 35 |esegment|(saw,0,5|
|00000e30| 31 32 29 3b 0a 0a 76 61 | 72 20 6c 3a 69 6e 74 20 |12);..va|r l:int |
|00000e40| 3d 20 32 20 2a 20 73 61 | 6d 70 6c 69 6e 67 72 61 |= 2 * sa|mplingra|
|00000e50| 74 65 3b 0a 76 61 72 20 | 66 3a 64 6f 75 62 6c 65 |te;.var |f:double|
|00000e60| 20 3d 20 32 36 31 2e 36 | 32 35 35 36 35 33 30 30 | = 261.6|25565300|
|00000e70| 36 3b 0a 76 61 72 20 64 | 31 3a 64 6f 75 62 6c 65 |6;.var d|1:double|
|00000e80| 20 3d 20 30 3b 0a 76 61 | 72 20 64 32 3a 64 6f 75 | = 0;.va|r d2:dou|
|00000e90| 62 6c 65 20 3d 20 30 3b | 0a 76 61 72 20 69 3a 69 |ble = 0;|.var i:i|
|00000ea0| 6e 74 20 3d 20 30 3b 0a | 73 65 74 20 64 61 74 61 |nt = 0;.|set data|
|00000eb0| 20 3a 3d 20 28 76 61 72 | 20 78 3a 66 69 78 65 64 | := (var| x:fixed|
|00000ec0| 61 72 72 61 79 28 6c 29 | 29 3b 0a 77 68 69 6c 65 |array(l)|);.while|
|00000ed0| 20 69 20 3c 20 6c 20 64 | 6f 0a 09 28 0a 09 09 73 | i < l d|o..(...s|
|00000ee0| 65 74 20 64 61 74 61 5b | 69 5d 20 3a 3d 20 28 73 |et data[|i] := (s|
|00000ef0| 61 77 5b 69 6e 74 28 64 | 31 20 2a 20 35 31 32 29 |aw[int(d|1 * 512)|
|00000f00| 5d 20 2b 20 73 61 77 5b | 69 6e 74 28 64 32 20 2a |] + saw[|int(d2 *|
|00000f10| 20 35 31 32 29 5d 29 20 | 2f 20 32 66 3b 0a 09 09 | 512)]) |/ 2f;...|
|00000f20| 73 65 74 20 64 31 20 3a | 3d 20 64 31 20 2b 20 32 |set d1 :|= d1 + 2|
|00000f30| 36 31 2e 36 32 35 35 36 | 35 33 30 30 36 20 2f 20 |61.62556|53006 / |
|00000f40| 73 61 6d 70 6c 69 6e 67 | 72 61 74 65 3b 0a 09 09 |sampling|rate;...|
|00000f50| 73 65 74 20 64 31 20 3a | 3d 20 64 31 20 2d 20 69 |set d1 :|= d1 - i|
|00000f60| 6e 74 20 64 31 3b 0a 09 | 09 73 65 74 20 64 32 20 |nt d1;..|.set d2 |
|00000f70| 3a 3d 20 64 32 20 2b 20 | 66 20 2f 20 73 61 6d 70 |:= d2 + |f / samp|
|00000f80| 6c 69 6e 67 72 61 74 65 | 3b 0a 09 09 73 65 74 20 |lingrate|;...set |
|00000f90| 64 32 20 3a 3d 20 64 32 | 20 2d 20 69 6e 74 20 64 |d2 := d2| - int d|
|00000fa0| 32 3b 0a 09 09 73 65 74 | 20 66 20 3a 3d 20 66 20 |2;...set| f := f |
|00000fb0| 2b 20 28 34 34 30 20 2d | 20 32 36 31 2e 36 32 35 |+ (440 -| 261.625|
|00000fc0| 35 36 35 33 30 30 36 29 | 20 2f 20 6c 3b 0a 09 09 |5653006)| / l;...|
|00000fd0| 73 65 74 20 69 20 3a 3d | 20 69 20 2b 20 31 3b 0a |set i :=| i + 1;.|
|00000fe0| 09 29 3b 0a 10 01 00 00 | 00 00 00 00 00 00 00 00 |.);.....|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 ee 56 00 00 2b 0c | 25 a0 05 01 00 00 01 5f |...V..+.|%......_|
|00001010| 00 14 00 1a 02 65 01 07 | 00 00 00 4d 75 6c 74 20 |.....e..|...Mult |
|00001020| 2e 35 b5 04 00 00 23 20 | 73 61 6d 70 6c 69 6e 67 |.5....# |sampling|
|00001030| 72 61 74 65 2c 20 6f 72 | 69 67 69 6e 2c 20 6c 6f |rate, or|igin, lo|
|00001040| 6f 70 73 74 61 72 74 31 | 2c 20 6c 6f 6f 70 73 74 |opstart1|, loopst|
|00001050| 61 72 74 32 2c 20 6c 6f | 6f 70 73 74 61 72 74 33 |art2, lo|opstart3|
|00001060| 20 3a 20 69 6e 74 65 67 | 65 72 0a 23 20 6c 6f 6f | : integ|er.# loo|
|00001070| 70 65 6e 64 31 2c 20 6c | 6f 6f 70 65 6e 64 32 2c |pend1, l|oopend2,|
|00001080| 20 6c 6f 6f 70 65 6e 64 | 33 20 3a 20 69 6e 74 65 | loopend|3 : inte|
|00001090| 67 65 72 0a 23 20 6e 61 | 74 75 72 61 6c 66 72 65 |ger.# na|turalfre|
|000010a0| 71 75 65 6e 63 79 20 3a | 20 64 6f 75 62 6c 65 3b |quency :| double;|
|000010b0| 20 5b 64 61 74 61 20 7c | 20 6c 65 66 74 64 61 74 | [data || leftdat|
|000010c0| 61 2c 20 72 69 67 68 74 | 64 61 74 61 5d 20 3a 20 |a, right|data] : |
|000010d0| 66 69 78 65 64 61 72 72 | 61 79 0a 23 20 66 72 61 |fixedarr|ay.# fra|
|000010e0| 6d 65 73 20 3a 20 69 6e | 74 65 67 65 72 3b 20 74 |mes : in|teger; t|
|000010f0| 61 62 6c 65 73 20 3a 20 | 69 6e 74 65 67 65 72 3b |ables : |integer;|
|00001100| 20 64 61 74 61 20 3a 20 | 66 69 78 65 64 61 72 72 | data : |fixedarr|
|00001110| 61 79 0a 70 72 6f 74 6f | 20 73 61 77 74 6f 6f 74 |ay.proto| sawtoot|
|00001120| 68 61 72 72 61 79 28 64 | 61 74 61 3a 66 69 78 65 |harray(d|ata:fixe|
|00001130| 64 61 72 72 61 79 2c 20 | 73 74 61 72 74 3a 69 6e |darray, |start:in|
|00001140| 74 2c 20 6c 65 6e 3a 69 | 6e 74 29 3a 66 69 78 65 |t, len:i|nt):fixe|
|00001150| 64 61 72 72 61 79 3b 0a | 70 72 6f 74 6f 20 74 6f |darray;.|proto to|
|00001160| 6e 65 73 65 74 28 66 63 | 3a 64 6f 75 62 6c 65 2c |neset(fc|:double,|
|00001170| 20 73 72 3a 64 6f 75 62 | 6c 65 29 20 3a 20 64 6f | sr:doub|le) : do|
|00001180| 75 62 6c 65 61 72 72 61 | 79 3b 0a 70 72 6f 74 6f |ublearra|y;.proto|
|00001190| 20 61 70 70 6c 79 74 6f | 6e 65 28 64 61 74 61 3a | applyto|ne(data:|
|000011a0| 66 69 78 65 64 61 72 72 | 61 79 2c 20 73 74 61 72 |fixedarr|ay, star|
|000011b0| 74 3a 69 6e 74 2c 20 6c | 65 6e 3a 69 6e 74 2c 20 |t:int, l|en:int, |
|000011c0| 61 3a 64 6f 75 62 6c 65 | 61 72 72 61 79 2c 20 63 |a:double|array, c|
|000011d0| 6f 75 6e 74 3a 69 6e 74 | 29 20 3a 20 66 69 78 65 |ount:int|) : fixe|
|000011e0| 64 61 72 72 61 79 3b 0a | 70 72 6f 74 6f 20 6d 61 |darray;.|proto ma|
|000011f0| 78 69 6d 69 7a 65 73 65 | 67 6d 65 6e 74 28 64 61 |ximizese|gment(da|
|00001200| 74 61 3a 66 69 78 65 64 | 61 72 72 61 79 2c 73 74 |ta:fixed|array,st|
|00001210| 61 72 74 3a 69 6e 74 2c | 6c 65 6e 3a 69 6e 74 29 |art:int,|len:int)|
|00001220| 3a 66 69 78 65 64 61 72 | 72 61 79 3b 0a 70 72 6f |:fixedar|ray;.pro|
|00001230| 74 6f 20 6e 6f 72 6d 61 | 6c 69 7a 65 73 65 67 6d |to norma|lizesegm|
|00001240| 65 6e 74 28 64 61 74 61 | 3a 66 69 78 65 64 61 72 |ent(data|:fixedar|
|00001250| 72 61 79 2c 73 74 61 72 | 74 3a 69 6e 74 2c 6c 65 |ray,star|t:int,le|
|00001260| 6e 3a 69 6e 74 29 3a 66 | 69 78 65 64 61 72 72 61 |n:int):f|ixedarra|
|00001270| 79 3b 0a 76 61 72 20 73 | 61 77 3a 66 69 78 65 64 |y;.var s|aw:fixed|
|00001280| 61 72 72 61 79 28 35 31 | 32 29 3b 0a 73 61 77 74 |array(51|2);.sawt|
|00001290| 6f 6f 74 68 61 72 72 61 | 79 28 73 61 77 2c 30 2c |ootharra|y(saw,0,|
|000012a0| 35 31 32 29 3b 0a 76 61 | 72 20 61 3a 64 6f 75 62 |512);.va|r a:doub|
|000012b0| 6c 65 61 72 72 61 79 20 | 3d 20 74 6f 6e 65 73 65 |learray |= tonese|
|000012c0| 74 28 31 30 30 2c 32 36 | 31 2e 36 20 2a 20 35 31 |t(100,26|1.6 * 51|
|000012d0| 32 29 3b 0a 61 70 70 6c | 79 74 6f 6e 65 28 73 61 |2);.appl|ytone(sa|
|000012e0| 77 2c 30 2c 35 31 32 2c | 61 2c 31 29 3b 0a 6d 61 |w,0,512,|a,1);.ma|
|000012f0| 78 69 6d 69 7a 65 73 65 | 67 6d 65 6e 74 28 73 61 |ximizese|gment(sa|
|00001300| 77 2c 30 2c 35 31 32 29 | 3b 0a 0a 76 61 72 20 6c |w,0,512)|;..var l|
|00001310| 3a 69 6e 74 20 3d 20 32 | 20 2a 20 73 61 6d 70 6c |:int = 2| * sampl|
|00001320| 69 6e 67 72 61 74 65 3b | 0a 76 61 72 20 66 3a 64 |ingrate;|.var f:d|
|00001330| 6f 75 62 6c 65 20 3d 20 | 32 36 31 2e 36 32 35 35 |ouble = |261.6255|
|00001340| 36 35 33 30 30 36 3b 0a | 76 61 72 20 64 31 3a 64 |653006;.|var d1:d|
|00001350| 6f 75 62 6c 65 20 3d 20 | 30 3b 0a 76 61 72 20 64 |ouble = |0;.var d|
|00001360| 32 3a 64 6f 75 62 6c 65 | 20 3d 20 30 3b 0a 76 61 |2:double| = 0;.va|
|00001370| 72 20 69 3a 69 6e 74 20 | 3d 20 30 3b 0a 73 65 74 |r i:int |= 0;.set|
|00001380| 20 64 61 74 61 20 3a 3d | 20 28 76 61 72 20 78 3a | data :=| (var x:|
|00001390| 66 69 78 65 64 61 72 72 | 61 79 28 6c 29 29 3b 0a |fixedarr|ay(l));.|
|000013a0| 77 68 69 6c 65 20 69 20 | 3c 20 6c 20 64 6f 0a 09 |while i |< l do..|
|000013b0| 28 0a 09 09 73 65 74 20 | 64 61 74 61 5b 69 5d 20 |(...set |data[i] |
|000013c0| 3a 3d 20 73 61 77 5b 69 | 6e 74 28 64 31 20 2a 20 |:= saw[i|nt(d1 * |
|000013d0| 35 31 32 29 5d 20 2a 20 | 28 31 66 20 2b 20 2e 35 |512)] * |(1f + .5|
|000013e0| 66 20 2a 20 73 61 77 5b | 69 6e 74 28 64 32 20 2a |f * saw[|int(d2 *|
|000013f0| 20 35 31 32 29 5d 29 3b | 0a 09 09 73 65 74 20 64 | 512)]);|...set d|
|00001400| 31 20 3a 3d 20 64 31 20 | 2b 20 32 36 31 2e 36 32 |1 := d1 |+ 261.62|
|00001410| 35 35 36 35 33 30 30 36 | 20 2f 20 73 61 6d 70 6c |55653006| / sampl|
|00001420| 69 6e 67 72 61 74 65 3b | 0a 09 09 73 65 74 20 64 |ingrate;|...set d|
|00001430| 31 20 3a 3d 20 64 31 20 | 2d 20 69 6e 74 20 64 31 |1 := d1 |- int d1|
|00001440| 3b 0a 09 09 73 65 74 20 | 64 32 20 3a 3d 20 64 32 |;...set |d2 := d2|
|00001450| 20 2b 20 66 20 2f 20 73 | 61 6d 70 6c 69 6e 67 72 | + f / s|amplingr|
|00001460| 61 74 65 3b 0a 09 09 73 | 65 74 20 64 32 20 3a 3d |ate;...s|et d2 :=|
|00001470| 20 64 32 20 2d 20 69 6e | 74 20 64 32 3b 0a 09 09 | d2 - in|t d2;...|
|00001480| 73 65 74 20 66 20 3a 3d | 20 66 20 2b 20 28 34 34 |set f :=| f + (44|
|00001490| 30 20 2d 20 32 36 31 2e | 36 32 35 35 36 35 33 30 |0 - 261.|62556530|
|000014a0| 30 36 29 20 2f 20 6c 3b | 0a 09 09 73 65 74 20 69 |06) / l;|...set i|
|000014b0| 20 3a 3d 20 69 20 2b 20 | 31 3b 0a 09 29 3b 0a 6e | := i + |1;..);.n|
|000014c0| 6f 72 6d 61 6c 69 7a 65 | 73 65 67 6d 65 6e 74 28 |ormalize|segment(|
|000014d0| 64 61 74 61 2c 30 2c 6c | 29 3b 0a 10 01 00 00 00 |data,0,l|);......|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 00 00 00 00 00 00 | 00 ee 56 00 00 2b 0c 25 |........|..V..+.%|
|00001500| a0 05 01 00 00 01 5f 00 | 14 00 1a 02 65 01 06 00 |......_.|....e...|
|00001510| 00 00 4d 75 6c 74 20 31 | b4 04 00 00 23 20 73 61 |..Mult 1|....# sa|
|00001520| 6d 70 6c 69 6e 67 72 61 | 74 65 2c 20 6f 72 69 67 |mplingra|te, orig|
|00001530| 69 6e 2c 20 6c 6f 6f 70 | 73 74 61 72 74 31 2c 20 |in, loop|start1, |
|00001540| 6c 6f 6f 70 73 74 61 72 | 74 32 2c 20 6c 6f 6f 70 |loopstar|t2, loop|
|00001550| 73 74 61 72 74 33 20 3a | 20 69 6e 74 65 67 65 72 |start3 :| integer|
|00001560| 0a 23 20 6c 6f 6f 70 65 | 6e 64 31 2c 20 6c 6f 6f |.# loope|nd1, loo|
|00001570| 70 65 6e 64 32 2c 20 6c | 6f 6f 70 65 6e 64 33 20 |pend2, l|oopend3 |
|00001580| 3a 20 69 6e 74 65 67 65 | 72 0a 23 20 6e 61 74 75 |: intege|r.# natu|
|00001590| 72 61 6c 66 72 65 71 75 | 65 6e 63 79 20 3a 20 64 |ralfrequ|ency : d|
|000015a0| 6f 75 62 6c 65 3b 20 5b | 64 61 74 61 20 7c 20 6c |ouble; [|data | l|
|000015b0| 65 66 74 64 61 74 61 2c | 20 72 69 67 68 74 64 61 |eftdata,| rightda|
|000015c0| 74 61 5d 20 3a 20 66 69 | 78 65 64 61 72 72 61 79 |ta] : fi|xedarray|
|000015d0| 0a 23 20 66 72 61 6d 65 | 73 20 3a 20 69 6e 74 65 |.# frame|s : inte|
|000015e0| 67 65 72 3b 20 74 61 62 | 6c 65 73 20 3a 20 69 6e |ger; tab|les : in|
|000015f0| 74 65 67 65 72 3b 20 64 | 61 74 61 20 3a 20 66 69 |teger; d|ata : fi|
|00001600| 78 65 64 61 72 72 61 79 | 0a 70 72 6f 74 6f 20 73 |xedarray|.proto s|
|00001610| 61 77 74 6f 6f 74 68 61 | 72 72 61 79 28 64 61 74 |awtootha|rray(dat|
|00001620| 61 3a 66 69 78 65 64 61 | 72 72 61 79 2c 20 73 74 |a:fixeda|rray, st|
|00001630| 61 72 74 3a 69 6e 74 2c | 20 6c 65 6e 3a 69 6e 74 |art:int,| len:int|
|00001640| 29 3a 66 69 78 65 64 61 | 72 72 61 79 3b 0a 70 72 |):fixeda|rray;.pr|
|00001650| 6f 74 6f 20 74 6f 6e 65 | 73 65 74 28 66 63 3a 64 |oto tone|set(fc:d|
|00001660| 6f 75 62 6c 65 2c 20 73 | 72 3a 64 6f 75 62 6c 65 |ouble, s|r:double|
|00001670| 29 20 3a 20 64 6f 75 62 | 6c 65 61 72 72 61 79 3b |) : doub|learray;|
|00001680| 0a 70 72 6f 74 6f 20 61 | 70 70 6c 79 74 6f 6e 65 |.proto a|pplytone|
|00001690| 28 64 61 74 61 3a 66 69 | 78 65 64 61 72 72 61 79 |(data:fi|xedarray|
|000016a0| 2c 20 73 74 61 72 74 3a | 69 6e 74 2c 20 6c 65 6e |, start:|int, len|
|000016b0| 3a 69 6e 74 2c 20 61 3a | 64 6f 75 62 6c 65 61 72 |:int, a:|doublear|
|000016c0| 72 61 79 2c 20 63 6f 75 | 6e 74 3a 69 6e 74 29 20 |ray, cou|nt:int) |
|000016d0| 3a 20 66 69 78 65 64 61 | 72 72 61 79 3b 0a 70 72 |: fixeda|rray;.pr|
|000016e0| 6f 74 6f 20 6d 61 78 69 | 6d 69 7a 65 73 65 67 6d |oto maxi|mizesegm|
|000016f0| 65 6e 74 28 64 61 74 61 | 3a 66 69 78 65 64 61 72 |ent(data|:fixedar|
|00001700| 72 61 79 2c 73 74 61 72 | 74 3a 69 6e 74 2c 6c 65 |ray,star|t:int,le|
|00001710| 6e 3a 69 6e 74 29 3a 66 | 69 78 65 64 61 72 72 61 |n:int):f|ixedarra|
|00001720| 79 3b 0a 70 72 6f 74 6f | 20 6e 6f 72 6d 61 6c 69 |y;.proto| normali|
|00001730| 7a 65 73 65 67 6d 65 6e | 74 28 64 61 74 61 3a 66 |zesegmen|t(data:f|
|00001740| 69 78 65 64 61 72 72 61 | 79 2c 73 74 61 72 74 3a |ixedarra|y,start:|
|00001750| 69 6e 74 2c 6c 65 6e 3a | 69 6e 74 29 3a 66 69 78 |int,len:|int):fix|
|00001760| 65 64 61 72 72 61 79 3b | 0a 76 61 72 20 73 61 77 |edarray;|.var saw|
|00001770| 3a 66 69 78 65 64 61 72 | 72 61 79 28 35 31 32 29 |:fixedar|ray(512)|
|00001780| 3b 0a 73 61 77 74 6f 6f | 74 68 61 72 72 61 79 28 |;.sawtoo|tharray(|
|00001790| 73 61 77 2c 30 2c 35 31 | 32 29 3b 0a 76 61 72 20 |saw,0,51|2);.var |
|000017a0| 61 3a 64 6f 75 62 6c 65 | 61 72 72 61 79 20 3d 20 |a:double|array = |
|000017b0| 74 6f 6e 65 73 65 74 28 | 31 30 30 2c 32 36 31 2e |toneset(|100,261.|
|000017c0| 36 20 2a 20 35 31 32 29 | 3b 0a 61 70 70 6c 79 74 |6 * 512)|;.applyt|
|000017d0| 6f 6e 65 28 73 61 77 2c | 30 2c 35 31 32 2c 61 2c |one(saw,|0,512,a,|
|000017e0| 31 29 3b 0a 6d 61 78 69 | 6d 69 7a 65 73 65 67 6d |1);.maxi|mizesegm|
|000017f0| 65 6e 74 28 73 61 77 2c | 30 2c 35 31 32 29 3b 0a |ent(saw,|0,512);.|
|00001800| 0a 76 61 72 20 6c 3a 69 | 6e 74 20 3d 20 32 20 2a |.var l:i|nt = 2 *|
|00001810| 20 73 61 6d 70 6c 69 6e | 67 72 61 74 65 3b 0a 76 | samplin|grate;.v|
|00001820| 61 72 20 66 3a 64 6f 75 | 62 6c 65 20 3d 20 32 36 |ar f:dou|ble = 26|
|00001830| 31 2e 36 32 35 35 36 35 | 33 30 30 36 3b 0a 76 61 |1.625565|3006;.va|
|00001840| 72 20 64 31 3a 64 6f 75 | 62 6c 65 20 3d 20 30 3b |r d1:dou|ble = 0;|
|00001850| 0a 76 61 72 20 64 32 3a | 64 6f 75 62 6c 65 20 3d |.var d2:|double =|
|00001860| 20 30 3b 0a 76 61 72 20 | 69 3a 69 6e 74 20 3d 20 | 0;.var |i:int = |
|00001870| 30 3b 0a 73 65 74 20 64 | 61 74 61 20 3a 3d 20 28 |0;.set d|ata := (|
|00001880| 76 61 72 20 78 3a 66 69 | 78 65 64 61 72 72 61 79 |var x:fi|xedarray|
|00001890| 28 6c 29 29 3b 0a 77 68 | 69 6c 65 20 69 20 3c 20 |(l));.wh|ile i < |
|000018a0| 6c 20 64 6f 0a 09 28 0a | 09 09 73 65 74 20 64 61 |l do..(.|..set da|
|000018b0| 74 61 5b 69 5d 20 3a 3d | 20 73 61 77 5b 69 6e 74 |ta[i] :=| saw[int|
|000018c0| 28 64 31 20 2a 20 35 31 | 32 29 5d 20 2a 20 28 31 |(d1 * 51|2)] * (1|
|000018d0| 66 20 2b 20 31 66 20 2a | 20 73 61 77 5b 69 6e 74 |f + 1f *| saw[int|
|000018e0| 28 64 32 20 2a 20 35 31 | 32 29 5d 29 3b 0a 09 09 |(d2 * 51|2)]);...|
|000018f0| 73 65 74 20 64 31 20 3a | 3d 20 64 31 20 2b 20 32 |set d1 :|= d1 + 2|
|00001900| 36 31 2e 36 32 35 35 36 | 35 33 30 30 36 20 2f 20 |61.62556|53006 / |
|00001910| 73 61 6d 70 6c 69 6e 67 | 72 61 74 65 3b 0a 09 09 |sampling|rate;...|
|00001920| 73 65 74 20 64 31 20 3a | 3d 20 64 31 20 2d 20 69 |set d1 :|= d1 - i|
|00001930| 6e 74 20 64 31 3b 0a 09 | 09 73 65 74 20 64 32 20 |nt d1;..|.set d2 |
|00001940| 3a 3d 20 64 32 20 2b 20 | 66 20 2f 20 73 61 6d 70 |:= d2 + |f / samp|
|00001950| 6c 69 6e 67 72 61 74 65 | 3b 0a 09 09 73 65 74 20 |lingrate|;...set |
|00001960| 64 32 20 3a 3d 20 64 32 | 20 2d 20 69 6e 74 20 64 |d2 := d2| - int d|
|00001970| 32 3b 0a 09 09 73 65 74 | 20 66 20 3a 3d 20 66 20 |2;...set| f := f |
|00001980| 2b 20 28 34 34 30 20 2d | 20 32 36 31 2e 36 32 35 |+ (440 -| 261.625|
|00001990| 35 36 35 33 30 30 36 29 | 20 2f 20 6c 3b 0a 09 09 |5653006)| / l;...|
|000019a0| 73 65 74 20 69 20 3a 3d | 20 69 20 2b 20 31 3b 0a |set i :=| i + 1;.|
|000019b0| 09 29 3b 0a 6e 6f 72 6d | 61 6c 69 7a 65 73 65 67 |.);.norm|alizeseg|
|000019c0| 6d 65 6e 74 28 64 61 74 | 61 2c 30 2c 6c 29 3b 0a |ment(dat|a,0,l);.|
|000019d0| 10 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ee 56 |........|.......V|
|000019f0| 00 00 2b 0c 25 a0 05 01 | 00 00 01 5f 00 14 00 1a |..+.%...|..._....|
|00001a00| 02 65 01 04 00 00 00 52 | 69 6e 67 8c 04 00 00 23 |.e.....R|ing....#|
|00001a10| 20 73 61 6d 70 6c 69 6e | 67 72 61 74 65 2c 20 6f | samplin|grate, o|
|00001a20| 72 69 67 69 6e 2c 20 6c | 6f 6f 70 73 74 61 72 74 |rigin, l|oopstart|
|00001a30| 31 2c 20 6c 6f 6f 70 73 | 74 61 72 74 32 2c 20 6c |1, loops|tart2, l|
|00001a40| 6f 6f 70 73 74 61 72 74 | 33 20 3a 20 69 6e 74 65 |oopstart|3 : inte|
|00001a50| 67 65 72 0a 23 20 6c 6f | 6f 70 65 6e 64 31 2c 20 |ger.# lo|opend1, |
|00001a60| 6c 6f 6f 70 65 6e 64 32 | 2c 20 6c 6f 6f 70 65 6e |loopend2|, loopen|
|00001a70| 64 33 20 3a 20 69 6e 74 | 65 67 65 72 0a 23 20 6e |d3 : int|eger.# n|
|00001a80| 61 74 75 72 61 6c 66 72 | 65 71 75 65 6e 63 79 20 |aturalfr|equency |
|00001a90| 3a 20 64 6f 75 62 6c 65 | 3b 20 5b 64 61 74 61 20 |: double|; [data |
|00001aa0| 7c 20 6c 65 66 74 64 61 | 74 61 2c 20 72 69 67 68 || leftda|ta, righ|
|00001ab0| 74 64 61 74 61 5d 20 3a | 20 66 69 78 65 64 61 72 |tdata] :| fixedar|
|00001ac0| 72 61 79 0a 23 20 66 72 | 61 6d 65 73 20 3a 20 69 |ray.# fr|ames : i|
|00001ad0| 6e 74 65 67 65 72 3b 20 | 74 61 62 6c 65 73 20 3a |nteger; |tables :|
|00001ae0| 20 69 6e 74 65 67 65 72 | 3b 20 64 61 74 61 20 3a | integer|; data :|
|00001af0| 20 66 69 78 65 64 61 72 | 72 61 79 0a 70 72 6f 74 | fixedar|ray.prot|
|00001b00| 6f 20 73 61 77 74 6f 6f | 74 68 61 72 72 61 79 28 |o sawtoo|tharray(|
|00001b10| 64 61 74 61 3a 66 69 78 | 65 64 61 72 72 61 79 2c |data:fix|edarray,|
|00001b20| 20 73 74 61 72 74 3a 69 | 6e 74 2c 20 6c 65 6e 3a | start:i|nt, len:|
|00001b30| 69 6e 74 29 3a 66 69 78 | 65 64 61 72 72 61 79 3b |int):fix|edarray;|
|00001b40| 0a 70 72 6f 74 6f 20 74 | 6f 6e 65 73 65 74 28 66 |.proto t|oneset(f|
|00001b50| 63 3a 64 6f 75 62 6c 65 | 2c 20 73 72 3a 64 6f 75 |c:double|, sr:dou|
|00001b60| 62 6c 65 29 20 3a 20 64 | 6f 75 62 6c 65 61 72 72 |ble) : d|oublearr|
|00001b70| 61 79 3b 0a 70 72 6f 74 | 6f 20 61 70 70 6c 79 74 |ay;.prot|o applyt|
|00001b80| 6f 6e 65 28 64 61 74 61 | 3a 66 69 78 65 64 61 72 |one(data|:fixedar|
|00001b90| 72 61 79 2c 20 73 74 61 | 72 74 3a 69 6e 74 2c 20 |ray, sta|rt:int, |
|00001ba0| 6c 65 6e 3a 69 6e 74 2c | 20 61 3a 64 6f 75 62 6c |len:int,| a:doubl|
|00001bb0| 65 61 72 72 61 79 2c 20 | 63 6f 75 6e 74 3a 69 6e |earray, |count:in|
|00001bc0| 74 29 20 3a 20 66 69 78 | 65 64 61 72 72 61 79 3b |t) : fix|edarray;|
|00001bd0| 0a 70 72 6f 74 6f 20 6d | 61 78 69 6d 69 7a 65 73 |.proto m|aximizes|
|00001be0| 65 67 6d 65 6e 74 28 64 | 61 74 61 3a 66 69 78 65 |egment(d|ata:fixe|
|00001bf0| 64 61 72 72 61 79 2c 73 | 74 61 72 74 3a 69 6e 74 |darray,s|tart:int|
|00001c00| 2c 6c 65 6e 3a 69 6e 74 | 29 3a 66 69 78 65 64 61 |,len:int|):fixeda|
|00001c10| 72 72 61 79 3b 0a 70 72 | 6f 74 6f 20 6e 6f 72 6d |rray;.pr|oto norm|
|00001c20| 61 6c 69 7a 65 73 65 67 | 6d 65 6e 74 28 64 61 74 |alizeseg|ment(dat|
|00001c30| 61 3a 66 69 78 65 64 61 | 72 72 61 79 2c 73 74 61 |a:fixeda|rray,sta|
|00001c40| 72 74 3a 69 6e 74 2c 6c | 65 6e 3a 69 6e 74 29 3a |rt:int,l|en:int):|
|00001c50| 66 69 78 65 64 61 72 72 | 61 79 3b 0a 76 61 72 20 |fixedarr|ay;.var |
|00001c60| 73 61 77 3a 66 69 78 65 | 64 61 72 72 61 79 28 35 |saw:fixe|darray(5|
|00001c70| 31 32 29 3b 0a 73 61 77 | 74 6f 6f 74 68 61 72 72 |12);.saw|tootharr|
|00001c80| 61 79 28 73 61 77 2c 30 | 2c 35 31 32 29 3b 0a 76 |ay(saw,0|,512);.v|
|00001c90| 61 72 20 61 3a 64 6f 75 | 62 6c 65 61 72 72 61 79 |ar a:dou|blearray|
|00001ca0| 20 3d 20 74 6f 6e 65 73 | 65 74 28 31 30 30 2c 32 | = tones|et(100,2|
|00001cb0| 36 31 2e 36 20 2a 20 35 | 31 32 29 3b 0a 61 70 70 |61.6 * 5|12);.app|
|00001cc0| 6c 79 74 6f 6e 65 28 73 | 61 77 2c 30 2c 35 31 32 |lytone(s|aw,0,512|
|00001cd0| 2c 61 2c 31 29 3b 0a 6d | 61 78 69 6d 69 7a 65 73 |,a,1);.m|aximizes|
|00001ce0| 65 67 6d 65 6e 74 28 73 | 61 77 2c 30 2c 35 31 32 |egment(s|aw,0,512|
|00001cf0| 29 3b 0a 0a 76 61 72 20 | 6c 3a 69 6e 74 20 3d 20 |);..var |l:int = |
|00001d00| 32 20 2a 20 73 61 6d 70 | 6c 69 6e 67 72 61 74 65 |2 * samp|lingrate|
|00001d10| 3b 0a 76 61 72 20 66 3a | 64 6f 75 62 6c 65 20 3d |;.var f:|double =|
|00001d20| 20 32 36 31 2e 36 32 35 | 35 36 35 33 30 30 36 3b | 261.625|5653006;|
|00001d30| 0a 76 61 72 20 64 31 3a | 64 6f 75 62 6c 65 20 3d |.var d1:|double =|
|00001d40| 20 30 3b 0a 76 61 72 20 | 64 32 3a 64 6f 75 62 6c | 0;.var |d2:doubl|
|00001d50| 65 20 3d 20 30 3b 0a 76 | 61 72 20 69 3a 69 6e 74 |e = 0;.v|ar i:int|
|00001d60| 20 3d 20 30 3b 0a 73 65 | 74 20 64 61 74 61 20 3a | = 0;.se|t data :|
|00001d70| 3d 20 28 76 61 72 20 78 | 3a 66 69 78 65 64 61 72 |= (var x|:fixedar|
|00001d80| 72 61 79 28 6c 29 29 3b | 0a 77 68 69 6c 65 20 69 |ray(l));|.while i|
|00001d90| 20 3c 20 6c 20 64 6f 0a | 09 28 0a 09 09 73 65 74 | < l do.|.(...set|
|00001da0| 20 64 61 74 61 5b 69 5d | 20 3a 3d 20 73 61 77 5b | data[i]| := saw[|
|00001db0| 69 6e 74 28 64 31 20 2a | 20 35 31 32 29 5d 20 2a |int(d1 *| 512)] *|
|00001dc0| 20 73 61 77 5b 69 6e 74 | 28 64 32 20 2a 20 35 31 | saw[int|(d2 * 51|
|00001dd0| 32 29 5d 3b 0a 09 09 73 | 65 74 20 64 31 20 3a 3d |2)];...s|et d1 :=|
|00001de0| 20 64 31 20 2b 20 32 36 | 31 2e 36 32 35 35 36 35 | d1 + 26|1.625565|
|00001df0| 33 30 30 36 20 2f 20 73 | 61 6d 70 6c 69 6e 67 72 |3006 / s|amplingr|
|00001e00| 61 74 65 3b 0a 09 09 73 | 65 74 20 64 31 20 3a 3d |ate;...s|et d1 :=|
|00001e10| 20 64 31 20 2d 20 69 6e | 74 20 64 31 3b 0a 09 09 | d1 - in|t d1;...|
|00001e20| 73 65 74 20 64 32 20 3a | 3d 20 64 32 20 2b 20 66 |set d2 :|= d2 + f|
|00001e30| 20 2f 20 73 61 6d 70 6c | 69 6e 67 72 61 74 65 3b | / sampl|ingrate;|
|00001e40| 0a 09 09 73 65 74 20 64 | 32 20 3a 3d 20 64 32 20 |...set d|2 := d2 |
|00001e50| 2d 20 69 6e 74 20 64 32 | 3b 0a 09 09 73 65 74 20 |- int d2|;...set |
|00001e60| 66 20 3a 3d 20 66 20 2b | 20 28 34 34 30 20 2d 20 |f := f +| (440 - |
|00001e70| 32 36 31 2e 36 32 35 35 | 36 35 33 30 30 36 29 20 |261.6255|653006) |
|00001e80| 2f 20 6c 3b 0a 09 09 73 | 65 74 20 69 20 3a 3d 20 |/ l;...s|et i := |
|00001e90| 69 20 2b 20 31 3b 0a 09 | 29 3b 0a 10 01 00 00 00 |i + 1;..|);......|
|00001ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001eb0| 00 00 00 00 00 00 00 00 | 00 ee 56 00 00 2b 0c 25 |........|..V..+.%|
|00001ec0| a0 05 01 00 00 00 00 00 | 00 00 00 00 00 04 00 00 |........|........|
|00001ed0| 00 01 16 00 27 00 ea 01 | 40 01 08 00 00 00 41 64 |....'...|@.....Ad|
|00001ee0| 64 69 74 69 76 65 f5 00 | 00 00 69 6e 73 74 72 75 |ditive..|..instru|
|00001ef0| 6d 65 6e 74 0a 09 28 0a | 09 09 6c 6f 75 64 6e 65 |ment..(.|..loudne|
|00001f00| 73 73 20 31 3b 0a 09 09 | 6f 73 63 69 6c 6c 61 74 |ss 1;...|oscillat|
|00001f10| 6f 72 20 78 0a 09 09 09 | 28 0a 09 09 09 09 73 61 |or x....|(.....sa|
|00001f20| 6d 70 6c 65 6c 69 73 74 | 20 28 22 41 64 64 69 74 |mplelist| ("Addit|
|00001f30| 69 76 65 22 20 31 30 30 | 30 30 3b 29 3b 0a 09 09 |ive" 100|00;);...|
|00001f40| 09 09 74 79 70 65 20 73 | 61 6d 70 6c 65 64 3b 0a |..type s|ampled;.|
|00001f50| 09 09 09 09 6c 6f 75 64 | 6e 65 73 73 20 31 3b 0a |....loud|ness 1;.|
|00001f60| 09 09 09 09 6c 6f 75 64 | 6e 65 73 73 65 6e 76 65 |....loud|nessenve|
|00001f70| 6c 6f 70 65 0a 09 09 09 | 09 09 28 0a 09 09 09 09 |lope....|..(.....|
|00001f80| 09 09 70 6f 69 6e 74 73 | 0a 09 09 09 09 09 09 09 |..points|........|
|00001f90| 28 0a 09 09 09 09 09 09 | 09 09 64 65 6c 61 79 20 |(.......|..delay |
|00001fa0| 30 20 6c 65 76 65 6c 20 | 31 3b 0a 09 09 09 09 09 |0 level |1;......|
|00001fb0| 09 09 09 64 65 6c 61 79 | 20 32 20 6c 65 76 65 6c |...delay| 2 level|
|00001fc0| 20 31 3b 0a 09 09 09 09 | 09 09 09 29 3b 0a 09 09 | 1;.....|...);...|
|00001fd0| 09 09 09 29 3b 0a 09 09 | 09 29 3b 0a 09 29 0a 01 |...);...|.);..)..|
|00001fe0| 16 00 27 00 ea 01 40 01 | 07 00 00 00 4d 75 6c 74 |..'...@.|....Mult|
|00001ff0| 20 2e 35 f4 00 00 00 69 | 6e 73 74 72 75 6d 65 6e | .5....i|nstrumen|
|00002000| 74 0a 09 28 0a 09 09 6c | 6f 75 64 6e 65 73 73 20 |t..(...l|oudness |
|00002010| 31 3b 0a 09 09 6f 73 63 | 69 6c 6c 61 74 6f 72 20 |1;...osc|illator |
|00002020| 78 0a 09 09 09 28 0a 09 | 09 09 09 73 61 6d 70 6c |x....(..|...sampl|
|00002030| 65 6c 69 73 74 20 28 22 | 4d 75 6c 74 20 2e 35 22 |elist ("|Mult .5"|
|00002040| 20 31 30 30 30 30 3b 29 | 3b 0a 09 09 09 09 74 79 | 10000;)|;.....ty|
|00002050| 70 65 20 73 61 6d 70 6c | 65 64 3b 0a 09 09 09 09 |pe sampl|ed;.....|
|00002060| 6c 6f 75 64 6e 65 73 73 | 20 31 3b 0a 09 09 09 09 |loudness| 1;.....|
|00002070| 6c 6f 75 64 6e 65 73 73 | 65 6e 76 65 6c 6f 70 65 |loudness|envelope|
|00002080| 0a 09 09 09 09 09 28 0a | 09 09 09 09 09 09 70 6f |......(.|......po|
|00002090| 69 6e 74 73 0a 09 09 09 | 09 09 09 09 28 0a 09 09 |ints....|....(...|
|000020a0| 09 09 09 09 09 09 64 65 | 6c 61 79 20 30 20 6c 65 |......de|lay 0 le|
|000020b0| 76 65 6c 20 31 3b 0a 09 | 09 09 09 09 09 09 09 64 |vel 1;..|.......d|
|000020c0| 65 6c 61 79 20 32 20 6c | 65 76 65 6c 20 31 3b 0a |elay 2 l|evel 1;.|
|000020d0| 09 09 09 09 09 09 09 29 | 3b 0a 09 09 09 09 09 29 |.......)|;......)|
|000020e0| 3b 0a 09 09 09 29 3b 0a | 09 29 0a 01 16 00 27 00 |;....);.|.)....'.|
|000020f0| ea 01 40 01 06 00 00 00 | 4d 75 6c 74 20 31 f3 00 |..@.....|Mult 1..|
|00002100| 00 00 69 6e 73 74 72 75 | 6d 65 6e 74 0a 09 28 0a |..instru|ment..(.|
|00002110| 09 09 6c 6f 75 64 6e 65 | 73 73 20 31 3b 0a 09 09 |..loudne|ss 1;...|
|00002120| 6f 73 63 69 6c 6c 61 74 | 6f 72 20 78 0a 09 09 09 |oscillat|or x....|
|00002130| 28 0a 09 09 09 09 73 61 | 6d 70 6c 65 6c 69 73 74 |(.....sa|mplelist|
|00002140| 20 28 22 4d 75 6c 74 20 | 31 22 20 31 30 30 30 30 | ("Mult |1" 10000|
|00002150| 3b 29 3b 0a 09 09 09 09 | 74 79 70 65 20 73 61 6d |;);.....|type sam|
|00002160| 70 6c 65 64 3b 0a 09 09 | 09 09 6c 6f 75 64 6e 65 |pled;...|..loudne|
|00002170| 73 73 20 31 3b 0a 09 09 | 09 09 6c 6f 75 64 6e 65 |ss 1;...|..loudne|
|00002180| 73 73 65 6e 76 65 6c 6f | 70 65 0a 09 09 09 09 09 |ssenvelo|pe......|
|00002190| 28 0a 09 09 09 09 09 09 | 70 6f 69 6e 74 73 0a 09 |(.......|points..|
|000021a0| 09 09 09 09 09 09 28 0a | 09 09 09 09 09 09 09 09 |......(.|........|
|000021b0| 64 65 6c 61 79 20 30 20 | 6c 65 76 65 6c 20 31 3b |delay 0 |level 1;|
|000021c0| 0a 09 09 09 09 09 09 09 | 09 64 65 6c 61 79 20 32 |........|.delay 2|
|000021d0| 20 6c 65 76 65 6c 20 31 | 3b 0a 09 09 09 09 09 09 | level 1|;.......|
|000021e0| 09 29 3b 0a 09 09 09 09 | 09 29 3b 0a 09 09 09 29 |.);.....|.);....)|
|000021f0| 3b 0a 09 29 0a 01 16 00 | 27 00 ea 01 40 01 04 00 |;..)....|'...@...|
|00002200| 00 00 52 69 6e 67 f1 00 | 00 00 69 6e 73 74 72 75 |..Ring..|..instru|
|00002210| 6d 65 6e 74 0a 09 28 0a | 09 09 6c 6f 75 64 6e 65 |ment..(.|..loudne|
|00002220| 73 73 20 31 3b 0a 09 09 | 6f 73 63 69 6c 6c 61 74 |ss 1;...|oscillat|
|00002230| 6f 72 20 78 0a 09 09 09 | 28 0a 09 09 09 09 73 61 |or x....|(.....sa|
|00002240| 6d 70 6c 65 6c 69 73 74 | 20 28 22 52 69 6e 67 22 |mplelist| ("Ring"|
|00002250| 20 31 30 30 30 30 3b 29 | 3b 0a 09 09 09 09 74 79 | 10000;)|;.....ty|
|00002260| 70 65 20 73 61 6d 70 6c | 65 64 3b 0a 09 09 09 09 |pe sampl|ed;.....|
|00002270| 6c 6f 75 64 6e 65 73 73 | 20 31 3b 0a 09 09 09 09 |loudness| 1;.....|
|00002280| 6c 6f 75 64 6e 65 73 73 | 65 6e 76 65 6c 6f 70 65 |loudness|envelope|
|00002290| 0a 09 09 09 09 09 28 0a | 09 09 09 09 09 09 70 6f |......(.|......po|
|000022a0| 69 6e 74 73 0a 09 09 09 | 09 09 09 09 28 0a 09 09 |ints....|....(...|
|000022b0| 09 09 09 09 09 09 64 65 | 6c 61 79 20 30 20 6c 65 |......de|lay 0 le|
|000022c0| 76 65 6c 20 31 3b 0a 09 | 09 09 09 09 09 09 09 64 |vel 1;..|.......d|
|000022d0| 65 6c 61 79 20 32 20 6c | 65 76 65 6c 20 31 3b 0a |elay 2 l|evel 1;.|
|000022e0| 09 09 09 09 09 09 09 29 | 3b 0a 09 09 09 09 09 29 |.......)|;......)|
|000022f0| 3b 0a 09 09 09 29 3b 0a | 09 29 0a 04 00 00 00 01 |;....);.|.)......|
|00002300| 20 00 22 00 f4 01 22 01 | 08 00 00 00 41 64 64 69 | ."...".|....Addi|
|00002310| 74 69 76 65 00 00 00 00 | 00 00 00 00 00 00 00 00 |tive....|........|
|00002320| 00 00 40 42 0f 00 00 00 | 00 00 00 00 00 00 00 00 |..@B....|........|
|00002330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 40 42 |........|......@B|
|00002340| 0f 00 00 40 42 0f 00 00 | 00 00 00 00 40 42 0f 00 |...@B...|....@B..|
|00002350| 00 00 00 00 00 00 00 00 | 00 01 01 08 00 00 00 41 |........|.......A|
|00002360| 64 64 69 74 69 76 65 00 | 18 00 00 00 23 63 68 61 |dditive.|....#cha|
|00002370| 6e 6e 65 6c 20 70 6f 73 | 74 70 72 6f 63 65 73 73 |nnel pos|tprocess|
|00002380| 69 6e 67 0a 01 01 00 00 | 00 01 00 00 00 07 94 2a |ing.....|.......*|
|00002390| 00 c0 00 00 00 00 00 00 | 00 00 00 00 00 e8 03 00 |........|........|
|000023a0| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff e8 03 e8 |........|........|
|000023b0| 03 00 00 e8 03 00 00 00 | 00 00 00 01 20 00 22 00 |........|.... .".|
|000023c0| f4 01 22 01 07 00 00 00 | 4d 75 6c 74 20 2e 35 00 |..".....|Mult .5.|
|000023d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 40 42 0f |........|.....@B.|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 00 00 00 00 00 00 | 00 40 42 0f 00 00 40 42 |........|.@B...@B|
|00002400| 0f 00 00 00 00 00 00 40 | 42 0f 00 00 00 00 00 00 |.......@|B.......|
|00002410| 00 00 00 00 01 01 07 00 | 00 00 4d 75 6c 74 20 2e |........|..Mult .|
|00002420| 35 00 18 00 00 00 23 63 | 68 61 6e 6e 65 6c 20 70 |5.....#c|hannel p|
|00002430| 6f 73 74 70 72 6f 63 65 | 73 73 69 6e 67 0a 01 03 |ostproce|ssing...|
|00002440| 00 00 00 01 00 00 00 05 | 96 2a 00 c0 00 00 00 00 |........|.*......|
|00002450| 00 00 00 00 00 00 00 e8 | 03 00 00 00 00 00 00 00 |........|........|
|00002460| 00 00 00 00 00 ff ff e8 | 03 e8 03 00 00 e8 03 00 |........|........|
|00002470| 00 01 00 00 00 07 96 2a | 00 c0 00 00 00 00 00 00 |.......*|........|
|00002480| 00 00 00 00 00 e8 03 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002490| 00 00 00 ff ff e8 03 e8 | 03 00 00 e8 03 00 00 01 |........|........|
|000024a0| 00 00 00 07 94 2a 00 c0 | 00 00 00 00 00 00 00 00 |.....*..|........|
|000024b0| 00 00 00 e8 03 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024c0| 00 ff ff e8 03 e8 03 00 | 00 e8 03 00 00 00 00 00 |........|........|
|000024d0| 00 01 20 00 22 00 f4 01 | 22 01 06 00 00 00 4d 75 |.. ."...|".....Mu|
|000024e0| 6c 74 20 31 00 00 00 00 | 00 00 00 00 00 00 00 00 |lt 1....|........|
|000024f0| 00 00 40 42 0f 00 00 00 | 00 00 00 00 00 00 00 00 |..@B....|........|
|00002500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 40 42 |........|......@B|
|00002510| 0f 00 00 40 42 0f 00 00 | 00 00 00 00 40 42 0f 00 |...@B...|....@B..|
|00002520| 00 00 00 00 00 00 00 00 | 00 01 01 06 00 00 00 4d |........|.......M|
|00002530| 75 6c 74 20 31 00 18 00 | 00 00 23 63 68 61 6e 6e |ult 1...|..#chann|
|00002540| 65 6c 20 70 6f 73 74 70 | 72 6f 63 65 73 73 69 6e |el postp|rocessin|
|00002550| 67 0a 01 05 00 00 00 01 | 00 00 00 05 96 2a 00 c0 |g.......|.....*..|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 e8 03 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 ff ff e8 03 e8 03 00 |........|........|
|00002580| 00 e8 03 00 00 01 00 00 | 00 07 96 2a 00 c0 00 00 |........|...*....|
|00002590| 00 00 00 00 00 00 00 00 | 00 e8 03 00 00 00 00 00 |........|........|
|000025a0| 00 00 00 00 00 00 00 ff | ff e8 03 e8 03 00 00 e8 |........|........|
|000025b0| 03 00 00 01 00 00 00 05 | 96 2a 00 c0 00 00 00 00 |........|.*......|
|000025c0| 00 00 00 00 00 00 00 e8 | 03 00 00 00 00 00 00 00 |........|........|
|000025d0| 00 00 00 00 00 ff ff e8 | 03 e8 03 00 00 e8 03 00 |........|........|
|000025e0| 00 01 00 00 00 07 96 2a | 00 c0 00 00 00 00 00 00 |.......*|........|
|000025f0| 00 00 00 00 00 e8 03 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002600| 00 00 00 ff ff e8 03 e8 | 03 00 00 e8 03 00 00 01 |........|........|
|00002610| 00 00 00 07 94 2a 00 c0 | 00 00 00 00 00 00 00 00 |.....*..|........|
|00002620| 00 00 00 e8 03 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002630| 00 ff ff e8 03 e8 03 00 | 00 e8 03 00 00 00 00 00 |........|........|
|00002640| 00 01 20 00 22 00 f4 01 | 22 01 04 00 00 00 52 69 |.. ."...|".....Ri|
|00002650| 6e 67 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ng......|........|
|00002660| 40 42 0f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |@B......|........|
|00002670| 00 00 00 00 00 00 00 00 | 00 00 00 00 40 42 0f 00 |........|....@B..|
|00002680| 00 40 42 0f 00 00 00 00 | 00 00 40 42 0f 00 00 00 |.@B.....|..@B....|
|00002690| 00 00 00 00 00 00 00 01 | 01 04 00 00 00 52 69 6e |........|.....Rin|
|000026a0| 67 00 18 00 00 00 23 63 | 68 61 6e 6e 65 6c 20 70 |g.....#c|hannel p|
|000026b0| 6f 73 74 70 72 6f 63 65 | 73 73 69 6e 67 0a 01 07 |ostproce|ssing...|
|000026c0| 00 00 00 01 00 00 00 05 | 96 2a 00 c0 00 00 00 00 |........|.*......|
|000026d0| 00 00 00 00 00 00 00 e8 | 03 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 ff ff e8 | 03 e8 03 00 00 e8 03 00 |........|........|
|000026f0| 00 01 00 00 00 07 96 2a | 00 c0 00 00 00 00 00 00 |.......*|........|
|00002700| 00 00 00 00 00 e8 03 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002710| 00 00 00 ff ff e8 03 e8 | 03 00 00 e8 03 00 00 01 |........|........|
|00002720| 00 00 00 05 96 2a 00 c0 | 00 00 00 00 00 00 00 00 |.....*..|........|
|00002730| 00 00 00 e8 03 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 ff ff e8 03 e8 03 00 | 00 e8 03 00 00 01 00 00 |........|........|
|00002750| 00 07 96 2a 00 c0 00 00 | 00 00 00 00 00 00 00 00 |...*....|........|
|00002760| 00 e8 03 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|00002770| ff e8 03 e8 03 00 00 e8 | 03 00 00 01 00 00 00 05 |........|........|
|00002780| 96 2a 00 c0 00 00 00 00 | 00 00 00 00 00 00 00 e8 |.*......|........|
|00002790| 03 00 00 00 00 00 00 00 | 00 00 00 00 00 ff ff e8 |........|........|
|000027a0| 03 e8 03 00 00 e8 03 00 | 00 01 00 00 00 07 96 2a |........|.......*|
|000027b0| 00 c0 00 00 00 00 00 00 | 00 00 00 00 00 e8 03 00 |........|........|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff e8 03 e8 |........|........|
|000027d0| 03 00 00 e8 03 00 00 01 | 00 00 00 07 94 2a 00 c0 |........|.....*..|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 e8 03 00 00 00 |........|........|
|000027f0| 00 00 00 00 00 00 00 00 | 00 ff ff e8 03 e8 03 00 |........|........|
|00002800| 00 e8 03 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002810| 00 00 00 00 00 00 00 00 | 00                      |........|.       |
+--------+-------------------------+-------------------------+--------+--------+